N 
— 
=) 


**F ILE**1D©eSYSSETPRI 


— oe — oe 
—— “—— 
ok Od Oe nd Os Ot Od et Oh OO OO 
oe nk ee es Og Od Ot Od Ot Ot Ot OO 


PP RR 
PP RR 
PP RR 
PP RR 


T PPPPPPPP 
T PPPPPPPP 
PPPPPPPP 
PPPPPPPP 


—-— 


a ee 


| ol and 

ee 

usu were) 
ww Lee TVe) 
ui peeTye) wou 
wu peeree) usu 
wu usu woud 
uu tad wu 
ive yye) very) [vuTve) 
usu usu usu 


nn NNNN 
nn NNN 
nw nw nn 
nn nn nn 
nn nw nw 
nn nn nn 
nn nw nn 
nn an nw 
MNMNYw nn 
ANN nn 
nn NNNYM 
nn NNN 
nn nn nn 
nn nn nw 
nw nn nn 
nn nn nn 
nn nn nn 
nn nn nn 
NnwNnN ann 
NNNM nn 
>>> > 
>>> > 
>> 
> 
>>> > > > > > 
>>> >> >>> 
> 
>> 
>>> > 
>>> > 
nn nnn 
nn YNNNN 
nn nn nn 
nn nn nn 
nn nw nw 
own “wn nn 
nw “vn nn 
ow nn “vn 
wwnnw nw 
MNNYN nn 


nn Munn 
nn MMwnn 
“nw ww nn 
nw nn nn 
“own wn “nn 
nn nw ww 
nn wn “wn 
nn wn non 
nnnnm “ww 
Mn nn 
oad ae Le heed 
a ee — 


LLLLLLLLLL 
LLLLLLELLLL 


SET PRIORITY SYSTEM SERVICE 


; DETAILED 


s 
~ SET PRIORITY SYSTEM SERVICE ROUTINE 


— 
os 
“2 


16-SEP-1984 02:33:11 


VAX/VMS Macro v04-00 Page 0 


“” 
nm 


ae ts a ss 


SET PRIORITY SYSTEM SERVICE 


AX/VMS Macro Vv04-00 Page 1 


SSEp=198¢ 08:37:18 


TITL YSSETPRI SET PRIORITY SYSTEM SERVIC 
l Nt *Vbes000! , 


SRR RAHHKHAAHH KSAT HHH AERA AAAAAREAA ARERR eeeeeeeeeeeTeeeee 


* 

COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ALL RIGHTS RESERVED. . 
® 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
IN ACCORDAN Ce WITH THE TERMS OF SUCH N . 

ION OF THE ABO VE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
§ THEREOF MAY Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
OTHER PERSON, TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
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i*FACILITY: EXECUTIVE, SYSTEM SERVICES 
ABSTRACT: 


PROCESS. 


ENVIRONMENT: 
MODE=KERNEL, RESIDENT 


- PAGE 

~SBTTL HISTORY 

; AUTHOR: R. HUSTVEDT 
; MODIFIED BY: 


; v03-002 Laxoes? Lawrence J. Kenah 9-Aug-1984 
3 e PRIB and AUTHPRI of target process rather than those of 


DETAILED 
CREATION DATE: 6-OCT-76 


aiacs 35 timit on new Brier ty spect ries by Panes pe te 
process (one lacking ALTPRI privilege) 


vO3-001 LJK0196 Lawrence J. Kena 25-Mar-1983 
Make rescheduling check if | ae priority of current process. 
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; PID ADDRESS ARGUMENT OFFSET 
; PREVIOUS PRIORITY SAVE ADDRESS 


; LOGICAL NAME OFFSET 


; NEW PRIORITY 


«SBTTL DECLARATIONS 
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; EQUATED SYMBOLS: 
IDADR=4 
OGNAM=8 
Rl=12 
RVPRI=16 
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SYSSETPRI PRIORITY SY 
v04- SETPRI = SE 
| 
9 4 -SBTTL EXESSETPRI = SET PRIORITY SYSTEM SERVICE ROUTINE 
0 Fy 
; FUNCTIONAL DESCRIPTION: 
0  : ; CALLING SEQUENCE: 
4 3 : CALLG ARGLIST,EXESSETPRI 
44 3g : 3: INPUT PARAMETERS: 
00 93 ; PIDADR(AP) = ADDRESS OF PID FOR TARGET PROCESS (OPTIONAL) 
00 94 ; LOGNAM(AP) = ADDRESS OF PROCESS LOGICAL NAME (OPTIONAL) 
00 95 ; PRICAP) = BITS 0:4 CONTAIN DESIRED PRIORITY 
0 36 : : PRVPRI(AP) = ADDRESS OF LONGWORD TO RECEIVE PREVIOUS PRIORITY 
4 1 3 R4 = PCB ADDRESS OF CURRENT PROCESS 
0000 99 ; IMPLICIT INPUTS : 
0000 100 : CURRENT PCB 
0000 101; 
0000 108 : OUTPUT PARAMETERS: 
0000 103; 0 = COMPLETION STATUS 
i 19 : @PIDADR(AP) = PID OF PROCESS FOR WHICH PRIORITY WAS CHANGED 
0000 106 ; IMPLICIT OUTPUTS: 
0000 86107 : ONE 
0000 108 : 
0000 109 ; COMPLETION CODES: 
0000 110; SS$_NORMAL = SUCCESSFUL COMPLETION 
0000 111; SS$-NOPRIV = INSUFFICIENT PRIVILEGE FOR REQUESTED OPERATION 
44 11g 3 : SS$S_NONEXPR = NON-EXISTENT PROCESS SPECIFIED 
0000 114 ; SIDE EFFECTS: 
0000 115; CHEDULING INTERRUPT MAY BE REQUESTED IF THE TARGET PROCESS 
4 118 3 3 ts” RAISED TO A PRIORITY GREATER THAN THAT OF THE CURRENT PROCESS. 
0000 118 ;-- 
0000 119 
444 1¢9 ; Put error exit paths before entry mask so that byte displacements reach 
50 Oc 3C 000 1 é ACCVIO: MOVZWL #SS$_ACCVIO,RO : SET ACCESS VIOLATION 
00 123 EXITN: SETIPL #0 : ENABLE INTERRUPT 
04 006 é RET : AND RETURN TO CALLER 
003c 0007 1 $ ENTRY EXESSETPRI,“M<R2,R3,R4,R5> SET PRIORITY SYSTEM SERVICE 
55 10 Ac 9 909 1 MOVL PRVPRI (AP) ,RS : SAV phev ious PRIORITY 
06 «1 0D 128 BEQL : BONE § UPPLIED 
900¢ 129 1FNOWRT Ay (R5).A vIO : ACCESS VIOLATION IF NO WRT | 
7E OC AC O05 00 F 0015 130 10S: EXTZV 5 PALA) -(SP) : SAVE DESIRED PRIORITY 
FFES" 0 0018 131 eves Aine ; LOOK UP PID/PNAME 
E2 e9 1€ 1 4 BLBC RO E Mi ; EXIT IF ERROR (RET WILL CLEAN STACK) 
¢ re SUBL3 ete ; CONVERT DESIRED PRIORITY TO INTERNAL FORM 
7E 9 AG A 5 134 MOVZBL PCB$B SPRIGSAY (RA) ~(SP) ; SAVE CURRENT PRIORITY 
52 0 DO 0029 135 MOVL  W*SCH HS RPCB,Re : GET POINTER TO CURRENT PCB 
28 $ IFPRIV SETPR . : GENERAL SETPRI PRIVILEGE? 
5 BAG 9A se MOVZBL PCB$B 1,208 2 R1 ; GET AUTHORIZED PRIORITY OF TARGET 
1 FAG 91 8 138 CMPB =- PCBSB-PRIB(R4) ,R1 : 0 MPARE WITH BASE PRIORIT 
04 1€ 9 C 139 BGEQU§ 1 ; CHOOSE ‘‘LARG 
51 2F AG QA E 140 MOVZBL PCBSB_PRIB(R4),R1 : BASE PRIORITY IS “LARGER’ 
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SYSSETPRI SET PRIORITY SYSTEM SERVICE 16-SEP-1984 21 AX/VMS Macro Vv04-00 Page 
v04- EXESSETPRI = SET PRIORITY SYSTEM SERVICE g78e EP=1 38 88: 37: 18 EeyS. BRC] SYSSETPRI. MAR; 1 ° 
| a) 91 4 141 15$: CMPB R1,R3 ; COMPARE DESIRED va WITH TARGET “f 
9: 15 4 126 BLEQ 20 ; WITHIN RANGE, ALLOW A 
53 1 9A rtf 107 MOVZBL R1,R3 ; MINIMIZE WITH BASE OF TARGET 
4A 145 ; Re - PCB eddress of SSETPRI caller | 
4A 198 : R35 = New priority of target process 
nn 13 ; R4 = PCB address of target process 
$8 AG 23 9 4A 129 20$: MOVB . Peees _PRISAV(R4) ; SET SAVED CURRENT ait 
9a 5 9 4 150 MOVB CB$B-PRIBSAV(R4) ; SET SAVED BASE PRIORITY 
OE AS OB 05 151 TSTW Pcéh MTRCNT(R4) ; DOES THIS PROCESS HOLD A MUTEX? 
3 is Be 1 ¢ BNEQ ags s Yes 
2F AG 9 O88 : Z MOVB R3,PCBSB_PRIB(R4) ; SET BASE PRIORITY 
0058 155 ; Note that the following test must be based on process state to allow for 
0038 128 ; multiple current processes on multiprocessor systems. 
2C AG) «6OOE~Cé#@{B»I 058 158 CMPW #SCHSC_CUR,PCBSW_STATE(R4) ; TARGET PROCESS CURRENTLY EXECUTING? 
18 is OO5F 159 BNEQ 30$ 3; @ 
OB AS 5 9 Boel 199 MOVB R3,PCB$B_PRI(R4) ; SET CURRENT PRIORITY 
0065 196 ; If the caller of SSETPRI is hours ine its own or sex tty a check must be made 
0065 163 ; to insure that the caller is still the highest priority computable process. If 
9d 196 ; some other COM process has a higher priority, a rescheduling request is made. 
52 54 D1 0065 166 CMPL R4,R2 ; TARGET PROCESS SAME AS a 
14 12 0068 167 BNEQ == 3 ; SKIP RESCHEDULE CHECK IF 
0000'CF 53 90 Q06A 168 MOVB R3,W*SCHS RECORD NEW ‘'TOP'’ PRIORITY 
52 0000'CF 20 00 EA OO06F 169 FS #0, #32, UeSeASGL. COMQS, R2; FIND PRIORITY OF NEXT COMPUTABLE PROCESS 
52. 53 91 0076 170 CMPB R3,R2 : a FOR DELAYED PREMPTION 
03 1B 0079 = 171 BLEQU 30 é CONTINU 
0078 76 SOFTINT #IPL$_SCHED : Lge a gs ae WHEN IPL DROPS 
52 01 9A QO7E 173 308: MOVZBL #PRI$_IOCOM,R2 ; GIVE aftner IT OF DOUBT 
0081 174 RPTEVT SETPR ; REPORT EVENT 
50 01 3¢€ 0085 175 40$: MOVZWL #SS$_NORMAL ,RO ; SET SUCCESS CODE 
0088 176 SETIPL #0 ; OR 
55 D5 0088 177 TSTL ; RETURN PREVIOUS PRIORITY? 
04 13 O008D 178 BEQL 50$ ; 
65 1F 8E C3 O08F 179 SUBL3 (SP)+,#31,(R5) ; STORE oo PRIORITY IN EXTERNAL FORM 
04 0093 180 50$: RET 3 
0094 181 
0094 182 . END 
| 
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Symbol table SSE 1984 08:57:18 EevsvenchsvscerPRinar;1 29° dy 
ACCVIO 00000000 ‘. 1 | 
EVTS motes ereerere 1 
EXESRAM eeereere ; 1 | 
EXESSETPRI 00 p ? ae : 
IPL$_SCHED = 3 | 
LOGNAM = 
PCBS$B_AUTHPRI = B 
PCBS$B_PRI = 8 
CB$B-PRIB : F 
PCBSB_PRIBSAV = 00000029 
PCBS$B_PRISAV = 0000 8 
PCB$Q_-PRIV = 4 
PCBSW_MTXCNT = QO000000E 
PCBSW "STATE = 000000eC 
Pid ADR > 44444 4 
PRS$_IPL = 00 4 SF 
PRETSIRR = 00000014 
PRI = 444 44 
PRIS _IOCOM = 00000001 
PRVSV_SETPRI = 00000000 
PRVPR = 00000010 
SCHSC_CUR = 0000000E 
SCHSGB_PRI teereeee =X 8601 
SCHSGL_~COMQS eererere X01 
tet CURPCB trekeree x 01 
SCHSRSE eeeeeeee = = X 8 01 
Ss$ SACCVIO = 0000000 
SS$"NORMAL = 00000001 
tere nr wenn ere eee we os 
: ;_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
» 028 ss 90000000 ( 0.) 90 ¢ 0.) NOPIC USR CON ABS LCL _NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . 00000094 (¢ 148.) O71 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 00000000 <( 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD URI NOVEC BYTE 
Se 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 70 0:00:00.31 
pounens processing 166 0:00: 0:37 0: 3201-28 
Syabol table sort Q £00201. 00: “86 
s2 oes Sa) 51 : 1, , : ti 
Symbol table output 0:00:00. :00:00.1 
Psect synopsis output B: 700. 0:00:00.0 
Cross-reference output :00:00. B38 700.0 
Assembler run totals 466 0 11.31 0:00:24.1 


The working set Limit was 1350 pages. | 
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E 8 
vane | facre Run Statistics xt spre Tati gescnt arms "SrSEP 7138 88: 33: 18 t 


43598 bytes (86 pages) of virtual memory were used to buffer the intermediate code. 
There were 50 pages of symbol geste, space al = d to hold 859 non-local ig local symbols. 
182 source Lines were read in Pass 1 + brody objeci records in Pass 2. 

pages of virtual memory were used to defi ne 99 macros. 
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! Macro Library Statistics } 


ducew ener eocee see wee nmeneoeoe + 


Macro Library name Macros defined 
SDUA £YS.0B8 -MLB; 1 10 

RENE ESYSCSeyetA LET.MLB;2 6 

TOTALS (all (Chee Pd 16 


969 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSSETPRI/OBJ=OBJ$:SYSSETPRI MSRC$:SYSSETPRI/UPDATE=(ENHS:SYSSETPRI) +EXECMLS$/LIB 
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